home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS073.dsk / CAPTURE IB AB.bas < prev    next >
BASIC Source File  |  2012-02-16  |  1KB  |  32 lines
  1. 0  GOTO 32000: REM INT/FP CAPTURE
  2. 32000  CALL  -936
  3. 32001  PRINT "LIST PROGRAM FOR INSTRUCTIONS.": PRINT 
  4. 32002  PRINT "     RUN CURSER OVER THESE TWO LINES:": PRINT 
  5. 32003  PRINT " 32014 LIST 1,31999": PRINT 
  6. 32004  PRINT "]RUN 32007"
  7. 32005  VTAB 4: END 
  8. 32007  PRINT "WHAT DO YOU WANT THE TEXT FILE CALLED":D$ = "<CTRL-D>": REM CTRL-D
  9. 32008  DIM A$(30): INPUT A$
  10. 32009  PRINT D$;"OPEN";A$
  11. 32010  PRINT D$;"DELETE";A$
  12. 32011  PRINT D$;"OPEN";A$
  13. 32012  PRINT D$;"WRITE";A$
  14. 32013  POKE 33,30
  15. 32014  LIST 0,32031
  16. 32015  PRINT D$;"CLOSE";A$
  17. 32016  TEXT 
  18. 32017  PRINT : PRINT "NOW YOU CAN 'EXEC' ";A$;" INTO FP OR INT"
  19. 32018  END 
  20. 32019  REM THIS PROGRAM SAVES
  21. 32020  REM PROGRAMS AS TEXT FILES
  22. 32021  REM TO BE 'EXEC'-ED INTO
  23. 32022  REM EITHER LANGUAGE OR CAN
  24. 32023  REM BE USED TO MERGE PROGRAMS
  25. 32024  REM THIS PROGRAM IS MADE
  26. 32025  REM TO BE 'EXEC'-ED INTO
  27. 32026  REM OTHER PROGRAMS
  28. 32027  REM IF THIS IS <CTRL-G>N<CTRL-G>O<CTRL-G>T A <CTRL-G>T<CTRL-G>E<CTRL-G>X<CTRL-G>T
  29. 32028  REM FILE ALREADY THEN
  30. 32029  REM <CTRL-G>R<CTRL-G>U<CTRL-G>N<CTRL-G> <CTRL-G>3<CTRL-G>2<CTRL-G>0<CTRL-G>0<CTRL-G>7<CTRL-G> <CTRL-G>W<CTRL-G>I<CTRL-G>T<CTRL-G>H<CTRL-G>O<CTRL-G>U<CTRL-G>T
  31. 32030  REM <CTRL-G>T<CTRL-G>H<CTRL-G>E<CTRL-G> <CTRL-G>C<CTRL-G>H<CTRL-G>A<CTRL-G>N<CTRL-G>G<CTRL-G>E<CTRL-G>S
  32. 32031  REM  A. F. PETRIE 12/1/80